home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / gnu / bash / bash_108 / bash-108.zoo / st-bash-src / src.diff < prev    next >
Encoding:
C/C++ Source or Header  |  1991-08-21  |  42.5 KB  |  1,652 lines
  1. diff -c ./alias.c ../../st-bash-src/alias.c
  2. *** ./alias.c    Wed Aug 21 03:39:44 1991
  3. --- ../../st-bash-src/alias.c    Fri Jul 26 15:51:46 1991
  4. ***************
  5. *** 92,98 ****
  6.         if ((aliases_length + 1) >= aliases_size)
  7.       {
  8.         aliases =
  9. !         (ASSOC **)xrealloc (aliases,
  10.                   (aliases_size += alias_list_grow_amount)
  11.                   * sizeof (ASSOC *));
  12.       }
  13. --- 92,98 ----
  14.         if ((aliases_length + 1) >= aliases_size)
  15.       {
  16.         aliases =
  17. !         (ASSOC **)xrealloc ((char *)aliases,
  18.                   (aliases_size += alias_list_grow_amount)
  19.                   * sizeof (ASSOC *));
  20.       }
  21. diff -c ./bashline.c ../../st-bash-src/bashline.c
  22. *** ./bashline.c    Sun May 19 17:54:16 1991
  23. --- ../../st-bash-src/bashline.c    Wed Aug 14 11:14:46 1991
  24. ***************
  25. *** 35,45 ****
  26.   
  27.   static char
  28.     **attempt_shell_completion (), *bash_tilde_expand (),
  29. !   *variable_completion_function (), *hostname_completion_function (),
  30.     *command_word_completion_function ();
  31.   
  32.   static void
  33.     snarf_hosts_from_file (), add_host_name (), sort_hostname_list ();
  34.   
  35.   /* Externally defined functions used by this file. */
  36.   extern char
  37. --- 35,57 ----
  38.   
  39.   static char
  40.     **attempt_shell_completion (), *bash_tilde_expand (),
  41. !   *variable_completion_function (), 
  42. ! 
  43. ! /**
  44. !  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  45. !  **/
  46. ! #if !defined(atarist)
  47. ! *hostname_completion_function (),
  48. ! #endif
  49.     *command_word_completion_function ();
  50.   
  51. + /**
  52. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  53. +  **/
  54. + #if !defined(atarist)
  55.   static void
  56.     snarf_hosts_from_file (), add_host_name (), sort_hostname_list ();
  57. + #endif 
  58.   
  59.   /* Externally defined functions used by this file. */
  60.   extern char
  61. ***************
  62. *** 62,69 ****
  63. --- 74,86 ----
  64.     bash_complete_filename_internal (),
  65.     bash_complete_username (), bash_possible_username_completions (),
  66.     bash_complete_username_internal (),
  67. + /**
  68. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  69. +  **/
  70. + #if !defined(atarist)
  71.     bash_complete_hostname (), bash_possible_hostname_completions (),
  72.     bash_complete_hostname_internal (),
  73. + #endif 
  74.     bash_complete_variable (), bash_possible_variable_completions (),
  75.     bash_complete_variable_internal (),
  76.     bash_complete_command (), bash_possible_command_completions (),
  77. ***************
  78. *** 116,126 ****
  79. --- 133,148 ----
  80.     rl_bind_key_in_map ('~', bash_possible_username_completions,
  81.                 emacs_ctlx_keymap);
  82.   
  83. + /**
  84. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  85. +  **/
  86. + #if !defined(atarist)
  87.     rl_add_defun ("complete-hostname", bash_complete_hostname, META('@'));
  88.     rl_add_defun ("possible-hostname-completions",
  89.           bash_possible_hostname_completions, -1);
  90.     rl_bind_key_in_map ('@', bash_possible_hostname_completions,
  91.                 emacs_ctlx_keymap);
  92. + #endif 
  93.   
  94.     rl_add_defun ("complete-variable", bash_complete_variable, META('$'));
  95.     rl_add_defun ("possible-variable-completions",
  96. ***************
  97. *** 211,216 ****
  98. --- 233,242 ----
  99.   /*                                    */
  100.   /* **************************************************************** */
  101.   
  102. + /**
  103. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  104. +  **/
  105. + #if !defined(atarist)
  106.   /* If the user requests hostname completion, then simply build a list
  107.      of hosts, and complete from that forever more. */
  108.   #if !defined (ETCHOSTS)
  109. ***************
  110. *** 255,261 ****
  111.     if (hostname_list_length + 2 > hostname_list_size)
  112.       {
  113.         hostname_list = (char **)
  114. !     xrealloc (hostname_list,
  115.             (1 + (hostname_list_size += 100)) * sizeof (char *));
  116.       }
  117.   
  118. --- 281,287 ----
  119.     if (hostname_list_length + 2 > hostname_list_size)
  120.       {
  121.         hostname_list = (char **)
  122. !     xrealloc ((char *)hostname_list,
  123.             (1 + (hostname_list_size += 100)) * sizeof (char *));
  124.       }
  125.   
  126. ***************
  127. *** 412,417 ****
  128. --- 438,444 ----
  129.       }
  130.     return ((char **)NULL);
  131.   }
  132. + #endif 
  133.   
  134.   /* This is a K*rn shell style insert-last-arg function.  The
  135.      difference is that Bash puts stuff into the history file before
  136. ***************
  137. *** 539,548 ****
  138. --- 566,580 ----
  139.   
  140.     /* Another one.  Why not?  If the word starts in '@', then look through
  141.        the world of known hostnames for completion first. */
  142. + /**
  143. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  144. +  **/
  145. + #if !defined(atarist)
  146.     if (!matches && *text == '@')
  147.       {
  148.         matches = completion_matches (text, hostname_completion_function);
  149.       }
  150. + #endif 
  151.   
  152.     /* And last, (but not least) if this word is in a command position, then
  153.        complete over possible command names, including aliases, functions,
  154. ***************
  155. *** 785,790 ****
  156. --- 817,826 ----
  157.       }
  158.   }
  159.   
  160. + /**
  161. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  162. +  **/
  163. + #if !defined(atarist)
  164.   /* How about a completion function for hostnames? */
  165.   static char *
  166.   hostname_completion_function (text, state)
  167. ***************
  168. *** 827,832 ****
  169. --- 863,869 ----
  170.     else
  171.       return ((char *)NULL);
  172.   }
  173. + #endif 
  174.   
  175.   /* History and alias expand the line.  But maybe do more?  This
  176.      is a test to see what users like.  Do expand_string on the string. */
  177. ***************
  178. *** 987,993 ****
  179.       {
  180.         if (numitems + 1 > maxitems)
  181.       ignores = (struct ign *)
  182. !       xrealloc (ignores, (maxitems += 10) * sizeof (struct ign));
  183.   
  184.         ignores[numitems].val = colon_bit;
  185.         ignores[numitems].len = strlen (colon_bit);
  186. --- 1024,1030 ----
  187.       {
  188.         if (numitems + 1 > maxitems)
  189.       ignores = (struct ign *)
  190. !       xrealloc ((char *)ignores, (maxitems += 10) * sizeof (struct ign));
  191.   
  192.         ignores[numitems].val = colon_bit;
  193.         ignores[numitems].len = strlen (colon_bit);
  194. ***************
  195. *** 1153,1158 ****
  196. --- 1190,1199 ----
  197.     rl_completer_word_break_characters = orig_rl_completer_word_break_characters;
  198.   }
  199.   
  200. + /**
  201. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  202. +  **/
  203. + #if !defined(atarist)
  204.   static void
  205.   bash_complete_hostname (ignore, ignore2)
  206.        int ignore, ignore2;
  207. ***************
  208. *** 1166,1171 ****
  209. --- 1207,1213 ----
  210.   {
  211.     bash_complete_hostname_internal ('?');
  212.   }
  213. + #endif 
  214.   
  215.   static void
  216.   bash_complete_variable (ignore, ignore2)
  217. ***************
  218. *** 1196,1201 ****
  219. --- 1238,1247 ----
  220.     bash_complete_command_internal ('?');
  221.   }
  222.   
  223. + /**
  224. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  225. +  **/
  226. + #if !defined(atarist)
  227.   static void
  228.   bash_complete_hostname_internal (what_to_do)
  229.        int what_to_do;
  230. ***************
  231. *** 1203,1208 ****
  232. --- 1249,1255 ----
  233.     bash_specific_completion
  234.       (what_to_do, (Function *)hostname_completion_function);
  235.   }
  236. + #endif 
  237.   
  238.   static void
  239.   bash_complete_variable_internal (what_to_do)
  240. diff -c ./braces.c ../../st-bash-src/braces.c
  241. *** ./braces.c    Thu May 16 04:08:22 1991
  242. --- ../../st-bash-src/braces.c    Fri Jul 26 16:01:46 1991
  243. ***************
  244. *** 110,116 ****
  245.   #if defined (SHELL)
  246.     /* If the amble does not contain BRACE_ARG_SEPARATOR, then just return
  247.        without doing any expansion.  */
  248. !   if (index (amble, brace_arg_separator) == NULL)
  249.       {
  250.         free (amble);
  251.         free (preamble);
  252. --- 110,116 ----
  253.   #if defined (SHELL)
  254.     /* If the amble does not contain BRACE_ARG_SEPARATOR, then just return
  255.        without doing any expansion.  */
  256. !   if (index (amble, brace_arg_separator) == (int)NULL)
  257.       {
  258.         free (amble);
  259.         free (preamble);
  260. ***************
  261. *** 164,170 ****
  262.         register int lp = array_len (partial);
  263.         register int j;
  264.   
  265. !       result = (char **)xrealloc (result, (1 + lp + lr) * sizeof (char *));
  266.   
  267.         for (j = 0; j < lp; j++)
  268.           result[lr + j] = partial[j];
  269. --- 164,170 ----
  270.         register int lp = array_len (partial);
  271.         register int j;
  272.   
  273. !       result = (char **)xrealloc ((char *)result, (1 + lp + lr) * sizeof (char *));
  274.   
  275.         for (j = 0; j < lp; j++)
  276.           result[lr + j] = partial[j];
  277. diff -c ./builtins.c ../../st-bash-src/builtins.c
  278. *** ./builtins.c    Wed Aug 21 03:39:47 1991
  279. --- ../../st-bash-src/builtins.c    Thu Aug 15 21:35:17 1991
  280. ***************
  281. *** 30,35 ****
  282. --- 30,41 ----
  283.   #if defined (HAVE_RESOURCE) && !defined (hpux)
  284.   #include <sys/time.h>
  285.   #include <sys/resource.h>
  286. + /** 
  287. +  ** (sjk)++ Add sys/times.h on an Atari ST
  288. +  **/
  289. + #if defined(atarist)
  290. + #include <sys/times.h>
  291. + #endif
  292.   #else /* !HAVE_RESOURCE || hpux */
  293.   #include <sys/times.h>
  294.   #endif /* !HAVE_RESOURCE || hpux */
  295. ***************
  296. *** 56,63 ****
  297. --- 62,77 ----
  298.   
  299.   /* Yecch!  Who cares about this gross concept in the first place? */
  300.   #ifndef MAXPATHLEN
  301. + /** 
  302. +  ** (sjk)++ Adjust MAXPATHLEN to jive with definition on the Atari ST. 
  303. +  **         (should be made to depend on standard headers).
  304. +  **/
  305. + #if !defined(atarist)
  306.   #define MAXPATHLEN 1024
  307. + #else 
  308. + #define MAXPATHLEN 128
  309.   #endif
  310. + #endif
  311.   
  312.   /* The command name of the currently running function. */
  313.   extern char *this_command_name;
  314. ***************
  315. *** 1072,1078 ****
  316.     }
  317.   
  318.     if (list)
  319. !     {
  320.         char *extract_colon_unit ();
  321.         char *path_string = get_string_value ("CDPATH");
  322.         char *path;
  323. --- 1086,1092 ----
  324.     }
  325.   
  326.     if (list)
  327. !     { 
  328.         char *extract_colon_unit ();
  329.         char *path_string = get_string_value ("CDPATH");
  330.         char *path;
  331. ***************
  332. *** 1080,1087 ****
  333.   
  334.         dirname = list->word->word;
  335.   
  336. !       if (path_string && !absolute_pathname (dirname))
  337. !     {
  338.         while ((path = extract_colon_unit (path_string, &index)))
  339.           {
  340.             char *dir;
  341. --- 1094,1120 ----
  342.   
  343.         dirname = list->word->word;
  344.   
  345. ! /**
  346. !  ** (sjk)++ If on an Atari ST give ?:* a real crack at it.
  347. !  **/
  348. ! #if defined(atarist)
  349. !       if ( dirname && (strlen(dirname)>=2) )
  350. !         if (dirname[1]==':')
  351. !           { int i = strlen(dirname);
  352. !             char *dn; dn = alloca(strlen(dirname));
  353. !             --i;
  354. !             strcpy(dn,dirname);
  355. !             if (dn[i] == '/') dn[i]='\000';
  356. !             if (chdir(dn) >= 0) 
  357. !               { strcpy(dirname,dn);
  358. !                 strcpy(the_current_working_directory,dn);
  359. !                 goto bind_and_exit;
  360. !           }
  361. !           }
  362. ! #endif
  363. !             
  364. !     if (path_string && !absolute_pathname (dirname))
  365. !     { /* Path_String && !absolute_pathname */
  366.         while ((path = extract_colon_unit (path_string, &index)))
  367.           {
  368.             char *dir;
  369. ***************
  370. *** 2674,2680 ****
  371.         if (!dollar_arg_stack)
  372.       {
  373.         dollar_arg_stack =
  374. !         (WORD_LIST **)xrealloc (dollar_arg_stack,
  375.                       (dollar_arg_stack_slots += 10)
  376.                       * sizeof (WORD_LIST **));
  377.       }
  378. --- 2707,2713 ----
  379.         if (!dollar_arg_stack)
  380.       {
  381.         dollar_arg_stack =
  382. !         (WORD_LIST **)xrealloc ((char *)dollar_arg_stack,
  383.                       (dollar_arg_stack_slots += 10)
  384.                       * sizeof (WORD_LIST **));
  385.       }
  386. ***************
  387. *** 2846,2852 ****
  388.   times_builtin (list)
  389.        WORD_LIST *list;
  390.   {
  391. ! #if defined (HAVE_RESOURCE) && !defined (hpux)
  392.     struct rusage self, kids;
  393.   
  394.     no_args (list);
  395. --- 2879,2889 ----
  396.   times_builtin (list)
  397.        WORD_LIST *list;
  398.   {
  399. ! 
  400. ! /** 
  401. !  ** (sjk)++ Adjust times builtin for Atari ST
  402. !  **/
  403. ! #if (defined (HAVE_RESOURCE) && !defined (hpux)) && !defined(atarist)
  404.     struct rusage self, kids;
  405.   
  406.     no_args (list);
  407. ***************
  408. *** 3958,3964 ****
  409.         if (directory_list_offset == directory_list_size)
  410.           {
  411.             pushd_directory_list = (char **)
  412. !         xrealloc (pushd_directory_list,
  413.                 (directory_list_size += 10) * sizeof (char *));
  414.           }
  415.         pushd_directory_list[directory_list_offset++] = current_directory;
  416. --- 3995,4001 ----
  417.         if (directory_list_offset == directory_list_size)
  418.           {
  419.             pushd_directory_list = (char **)
  420. !         xrealloc ((char *)pushd_directory_list,
  421.                 (directory_list_size += 10) * sizeof (char *));
  422.           }
  423.         pushd_directory_list[directory_list_offset++] = current_directory;
  424. diff -c ./config.h ../../st-bash-src/config.h
  425. *** ./config.h    Wed Aug 21 03:39:48 1991
  426. --- ../../st-bash-src/config.h    Tue Jun 18 00:05:22 1991
  427. ***************
  428. *** 64,70 ****
  429.   
  430.   /* Define JOB_CONTROL if your operating system supports
  431.      BSD-like job control. */
  432. ! #define JOB_CONTROL
  433.   
  434.   /* Note that vanilla System V machines don't support BSD job control, 
  435.      although some do support Posix job control. */
  436. --- 64,70 ----
  437.   
  438.   /* Define JOB_CONTROL if your operating system supports
  439.      BSD-like job control. */
  440. ! /* #define JOB_CONTROL */
  441.   
  442.   /* Note that vanilla System V machines don't support BSD job control, 
  443.      although some do support Posix job control. */
  444. diff -c ./execute_cmd.c ../../st-bash-src/execute_cmd.c
  445. *** ./execute_cmd.c    Wed Aug 21 03:40:05 1991
  446. --- ../../st-bash-src/execute_cmd.c    Wed Aug 14 11:59:46 1991
  447. ***************
  448. *** 1322,1335 ****
  449.   
  450.       if (!absolute_program (words->word->word))
  451.         hashed_file = find_hashed_filename (words->word->word);
  452. ! 
  453.       if (hashed_file)
  454.         command = savestring (hashed_file);
  455.       else
  456. !       {
  457. !         /* A command containing a slash is not looked up in PATH. */
  458. !         if (absolute_program (words->word->word))
  459. !           command = savestring (words->word->word);
  460.           else
  461.             command = find_user_command (words->word->word);
  462.           if (command && !hashing_disabled)
  463. --- 1322,1359 ----
  464.   
  465.       if (!absolute_program (words->word->word))
  466.         hashed_file = find_hashed_filename (words->word->word);
  467. !         
  468.       if (hashed_file)
  469.         command = savestring (hashed_file);
  470.       else
  471. !       { if (absolute_program (words->word->word))
  472. !               { 
  473. ! /** 
  474. !  ** (sjk)++ Add checking of extensions {.tos/.ttp/.prg} on absolute
  475. !  **         paths on the Atari ST.
  476. !  **/
  477. ! #if defined(atarist)
  478. !         char *name_suffix = alloca(4 + strlen(words->word->word));
  479. !                 struct stat finfo;
  480. !                 strcpy(name_suffix,words->word->word);
  481. !                   if (0 != stat(name_suffix,&finfo))
  482. !                  { strcat(name_suffix,".tos");
  483. !                        if (0 != stat(name_suffix,&finfo)) 
  484. !                           { strcpy(name_suffix,words->word->word);
  485. !                             strcat(name_suffix,".ttp");
  486. !                             if (0 != stat(name_suffix,&finfo)) 
  487. !                        { strcpy(name_suffix,words->word->word);
  488. !                                  strcat(name_suffix,".prg");
  489. !                                  if (0 != stat(name_suffix,&finfo))
  490. !                                     strcpy(name_suffix,words->word->word);
  491. !                    }
  492. !               }
  493. !              }
  494. !                      command = savestring (name_suffix);
  495. ! #else
  496. !               command = savestring (words->word->word);
  497. ! #endif
  498. !           }
  499.           else
  500.             command = find_user_command (words->word->word);
  501.           if (command && !hashing_disabled)
  502. ***************
  503. *** 1350,1357 ****
  504.          of COMMAND, since we want the error messages to be redirected. */
  505.         
  506.       if (make_child (savestring (command_line), async) == 0)
  507. !       {
  508. !         do_piping (pipe_in, pipe_out);
  509.   
  510.           /* Execve expects the command name to be in args[0].  So we
  511.              leave it there, in the same format that the user used to
  512. --- 1374,1380 ----
  513.          of COMMAND, since we want the error messages to be redirected. */
  514.         
  515.       if (make_child (savestring (command_line), async) == 0)
  516. !       { do_piping (pipe_in, pipe_out);
  517.   
  518.           /* Execve expects the command name to be in args[0].  So we
  519.              leave it there, in the same format that the user used to
  520. ***************
  521. *** 1375,1380 ****
  522. --- 1398,1404 ----
  523.           if (do_redirections (simple_command->redirects, 1, 0, 0) == 0)
  524.             {
  525.           signal (SIGCHLD, SIG_DFL);
  526. + 
  527.           execve (command, args, export_env);
  528.   
  529.           /* If we get to this point, then start checking out the file.
  530. ***************
  531. *** 1471,1477 ****
  532.                 /* Insert the name of this shell into the
  533.                argument list. */
  534.                 args =
  535. !             (char **)xrealloc (args, (1 + larry) * sizeof (char *));
  536.                 for (i = larry - 1; i; i--)
  537.               args[i] = args[i - 1];
  538.   
  539. --- 1495,1501 ----
  540.                 /* Insert the name of this shell into the
  541.                argument list. */
  542.                 args =
  543. !             (char **)xrealloc ((char *)args, (1 + larry) * sizeof (char *));
  544.                 for (i = larry - 1; i; i--)
  545.               args[i] = args[i - 1];
  546.   
  547. ***************
  548. *** 1521,1530 ****
  549.           exit (EXECUTION_FAILURE);
  550.             }
  551.         }
  552.       else
  553. !       {
  554. !         /* Make sure that the pipes are closed in the parent. */
  555.           close_pipes (pipe_in, pipe_out);
  556.           if (command)
  557.             free (command);
  558.         }
  559. --- 1545,1561 ----
  560.           exit (EXECUTION_FAILURE);
  561.             }
  562.         }
  563. +     
  564.       else
  565. !       { /* Make sure that the pipes are closed in the parent. */
  566.           close_pipes (pipe_in, pipe_out);
  567. +       
  568. + /**
  569. +  ** On the Atari ST force GEMDOS buffers into RTL buffers.
  570. +  **/      
  571. + #if defined(atarist)
  572. +             flush_key_buff(fileno(stdin));
  573. + #endif
  574.           if (command)
  575.             free (command);
  576.         }
  577. ***************
  578. *** 1892,1898 ****
  579. --- 1923,1937 ----
  580.     return (0);
  581.   }
  582.   
  583. + /**
  584. +  ** (sjk)++ This is a real kludge to help out our limited implementation of 
  585. +  **         fcntl with F_DUPFD.
  586. +  **/
  587. + #if defined(atarist)
  588. + #define SHELL_FD_BASE    4
  589. + #else
  590.   #define SHELL_FD_BASE    10
  591. + #endif 
  592.   
  593.   /* Remember the file descriptor associated with the slot FD,
  594.      on REDIRECTION_UNDO_LIST.  Note that the list will be reversed
  595. ***************
  596. *** 2111,2118 ****
  597. --- 2150,2189 ----
  598.        char *name;
  599.   {
  600.     char *find_user_command_internal ();
  601. + /**
  602. +  ** (sjk)++ Check the extensions {.tos/.ttp/.prg} for a user command.
  603. +  **/
  604. + #if defined(atarist)
  605. +   char *win,*name_suffix;
  606. +   name_suffix = (char *)alloca(4 + strlen(name)); 
  607. + #endif
  608.   
  609. + #if !defined(atarist)
  610. + 
  611.     return (find_user_command_internal (name, 1));
  612. + 
  613. + #else  /* Must be an Atari ST */
  614. + 
  615. +   win = find_user_command_internal(name, 1);
  616. +   if (win != (char *)NULL) return(win);
  617. +  
  618. +   strcpy(name_suffix,name);
  619. +   strcat(name_suffix,".ttp");
  620. +   win = (char *)find_user_command_internal(name_suffix, 1);
  621. +   if (win != (char *)NULL) return(win);
  622. + 
  623. +   strcpy(name_suffix,name);
  624. +   strcat(name_suffix,".tos");
  625. +   win = (char *)find_user_command_internal(name_suffix, 1);
  626. +   if (win != (char *)NULL) return(win);
  627. + 
  628. +   strcpy(name_suffix,name);
  629. +   strcat(name_suffix,".prg");
  630. +   win = (char *)find_user_command_internal(name_suffix, 1);
  631. +   if (win != (char *)NULL) return(win);
  632. + 
  633. +   return(win);
  634. + #endif                               
  635.   }
  636.   
  637.   /* Locate the file referenced by NAME, searching along the contents
  638. ***************
  639. *** 2194,2200 ****
  640.   
  641.         if (match_index + 1 == match_list_size)
  642.           match_list =
  643. !           (char **)xrealloc (match_list,
  644.                    ((match_list_size += 10) + 1) * sizeof (char *));
  645.         match_list[match_index++] = match;
  646.         match_list[match_index] = (char *)NULL;
  647. --- 2265,2271 ----
  648.   
  649.         if (match_index + 1 == match_list_size)
  650.           match_list =
  651. !           (char **)xrealloc ((char *)match_list,
  652.                    ((match_list_size += 10) + 1) * sizeof (char *));
  653.         match_list[match_index++] = match;
  654.         match_list[match_index] = (char *)NULL;
  655. ***************
  656. *** 2266,2274 ****
  657.        a `.' as the directory path yet. */
  658.     dot_found_in_search = 0;
  659.   
  660.     if (absolute_program (name))
  661.       {
  662. !       full_path = (char *)xmalloc (1 + name_len);
  663.         strcpy (full_path, name);
  664.   
  665.         if (executable_file (full_path) || file_exists_p)
  666. --- 2337,2346 ----
  667.        a `.' as the directory path yet. */
  668.     dot_found_in_search = 0;
  669.   
  670. + 
  671.     if (absolute_program (name))
  672.       {
  673. !       full_path = (char *)xmalloc (1 + strlen(name));
  674.         strcpy (full_path, name);
  675.   
  676.         if (executable_file (full_path) || file_exists_p)
  677. diff -c ./expr.c ../../st-bash-src/expr.c
  678. *** ./expr.c    Wed Aug 21 03:40:05 1991
  679. --- ../../st-bash-src/expr.c    Fri Jul 26 15:50:04 1991
  680. ***************
  681. *** 148,154 ****
  682.     if (expr_depth >= expr_stack_size)
  683.       {
  684.         expr_stack = (EXPR_CONTEXT **)
  685. !     xrealloc (expr_stack, (expr_stack_size += EXPR_STACK_GROW_SIZE)
  686.             * sizeof (EXPR_CONTEXT *));
  687.       }
  688.   
  689. --- 148,154 ----
  690.     if (expr_depth >= expr_stack_size)
  691.       {
  692.         expr_stack = (EXPR_CONTEXT **)
  693. !     xrealloc ((char *)expr_stack, (expr_stack_size += EXPR_STACK_GROW_SIZE)
  694.             * sizeof (EXPR_CONTEXT *));
  695.       }
  696.   
  697. diff -c ./general.c ../../st-bash-src/general.c
  698. *** ./general.c    Wed Aug 21 03:40:07 1991
  699. --- ../../st-bash-src/general.c    Wed Aug 14 11:58:20 1991
  700. ***************
  701. *** 22,27 ****
  702. --- 22,28 ----
  703.   #include <errno.h>
  704.   #include <sys/types.h>
  705.   #include <sys/param.h>
  706. + 
  707.   #include <fcntl.h>
  708.   
  709.   #include "shell.h"
  710. ***************
  711. *** 51,57 ****
  712.   
  713.   char *
  714.   xmalloc (size)
  715. !      int size;
  716.   {
  717.     register char *temp = (char *)malloc (size);
  718.   
  719. --- 52,58 ----
  720.   
  721.   char *
  722.   xmalloc (size)
  723. ! long size;
  724.   {
  725.     register char *temp = (char *)malloc (size);
  726.   
  727. ***************
  728. *** 64,70 ****
  729.   char *
  730.   xrealloc (pointer, size)
  731.        register char *pointer;
  732. !      int size;
  733.   {
  734.     char *temp;
  735.   
  736. --- 65,71 ----
  737.   char *
  738.   xrealloc (pointer, size)
  739.        register char *pointer;
  740. ! long size;
  741.   {
  742.     char *temp;
  743.   
  744. ***************
  745. *** 140,148 ****
  746.   unset_nodelay_mode (fd)
  747.        int fd;
  748.   {
  749.     int flags, set = 0;
  750.   
  751. !   if ((flags = fcntl (fd, F_GETFL, 0)) < 0)
  752.       return;
  753.   
  754.   #if defined (O_NONBLOCK)
  755. --- 141,157 ----
  756.   unset_nodelay_mode (fd)
  757.        int fd;
  758.   {
  759. + 
  760. + /**
  761. +  ** (sjk)++ We remove the call to make stdin a noblocking stream, since this 
  762. +             is not a feature of our limited fcntl() call. No blocking Input 
  763. +         is however taken care of by the console_input_status()
  764. +             and console_read_byte() pair in the readline source code.
  765. +  **/
  766. + #if !defined(atarist)
  767.     int flags, set = 0;
  768.   
  769. !   if ((flags = fcntl(fd, F_GETFL, 0)) < 0)
  770.       return;
  771.   
  772.   #if defined (O_NONBLOCK)
  773. ***************
  774. *** 163,168 ****
  775. --- 172,178 ----
  776.   
  777.     if (set)
  778.       fcntl (fd, F_SETFL, flags);
  779. + #endif 
  780.   }
  781.   
  782.   
  783. ***************
  784. *** 347,353 ****
  785. --- 357,372 ----
  786.      begin with. */
  787.   
  788.   #ifndef MAXPATHLEN
  789. + 
  790. + /**
  791. +  ** (sjk)++ Adjust the MAXPATHLEN on the Atari ST, note that this should be 
  792. +  **         done in a more independent way (by including a standard header).
  793. +  **/
  794. + #if !defined(atarist)
  795.   #define MAXPATHLEN 1024
  796. + #else 
  797. + #define MAXPATHLEN 128
  798. + #endif
  799.   #endif
  800.   
  801.   static char current_path[MAXPATHLEN];
  802. diff -c ./general.h ../../st-bash-src/general.h
  803. *** ./general.h    Fri May 17 19:58:24 1991
  804. --- ../../st-bash-src/general.h    Wed Aug 14 15:00:28 1991
  805. ***************
  806. *** 72,78 ****
  807.   #define SET_CLOSE_ON_EXEC(fd)    (fcntl ((fd), F_SETFD, FD_CLOEXEC))
  808.   #define SET_OPEN_ON_EXEC(fd)    (fcntl ((fd), F_SETFD, FD_NCLOEXEC))
  809.   
  810. - extern char *xmalloc (), *malloc (), *xrealloc (), *realloc ();
  811.   extern char *itos ();
  812.   
  813.   #endif    /* _GENERAL_ */
  814. --- 72,80 ----
  815.   #define SET_CLOSE_ON_EXEC(fd)    (fcntl ((fd), F_SETFD, FD_CLOEXEC))
  816.   #define SET_OPEN_ON_EXEC(fd)    (fcntl ((fd), F_SETFD, FD_NCLOEXEC))
  817.   
  818.   extern char *itos ();
  819.   
  820.   #endif    /* _GENERAL_ */
  821. + 
  822. + 
  823. + 
  824. diff -c ./mailcheck.c ../../st-bash-src/mailcheck.c
  825. *** ./mailcheck.c    Wed Jan 30 17:04:04 1991
  826. --- ../../st-bash-src/mailcheck.c    Wed Aug 14 13:27:38 1991
  827. ***************
  828. *** 24,29 ****
  829. --- 24,34 ----
  830.   #include <sys/param.h>
  831.   #include "shell.h"
  832.   
  833. + /**
  834. +  ** (sjk)++ Remove all host/mail references on the Atari ST1
  835. +  **/
  836. + #if !defined(atarist)
  837. + 
  838.   #ifndef MAXPATHLEN
  839.   #define MAXPATHLEN 1024
  840.   #endif
  841. ***************
  842. *** 150,155 ****
  843. --- 155,161 ----
  844.     mailfiles_count = 0;
  845.     mailfiles = (FILEINFO **)NULL;
  846.   }
  847. + #endif 
  848.   
  849.   /* Return the full pathname of FILE.  Easy.  Filenames that begin
  850.      with a '/' are returned as themselves.  Other filenames have
  851. ***************
  852. *** 192,197 ****
  853. --- 198,208 ----
  854.     }
  855.   }
  856.   
  857. + /**
  858. +  ** (sjk)++ Remove all host/mail references on the Atari ST
  859. +  **/
  860. + #if !defined(atarist)
  861. + 
  862.   /* Return non-zero if FILE's mod date has changed. */
  863.   file_mod_date_changed (file)
  864.        char *file;
  865. ***************
  866. *** 400,402 ****
  867. --- 411,414 ----
  868.     free (mailpaths);
  869.     bind_variable ("_", dollar_underscore);
  870.   }
  871. + #endif 
  872. diff -c ./nojobs.c ../../st-bash-src/nojobs.c
  873. *** ./nojobs.c    Wed Aug 21 03:40:22 1991
  874. --- ../../st-bash-src/nojobs.c    Wed Aug 14 13:47:32 1991
  875. ***************
  876. *** 46,56 ****
  877.   #define SIGABRT SIGIOT
  878.   #endif
  879.   
  880. ! #if defined (USG) || defined (_POSIX_VERSION)
  881.   #define killpg(pg, sig)        kill(-(pg),(sig))
  882.   #endif
  883.   
  884. ! #if defined (USG)
  885.   #define siginterrupt(sig, code)
  886.   #endif
  887.   
  888. --- 46,62 ----
  889.   #define SIGABRT SIGIOT
  890.   #endif
  891.   
  892. ! /**
  893. !  ** (sjk)++ Remove all host/mail references on the Atari ST1
  894. !  **/
  895. ! #if defined (USG) || defined (_POSIX_VERSION) || defined(atarist)
  896.   #define killpg(pg, sig)        kill(-(pg),(sig))
  897.   #endif
  898.   
  899. ! /**
  900. !  ** (sjk)++ Make siginterrupt() a NULL code on the Atari ST
  901. !  **/
  902. ! #if defined (USG) || defined(atarist)
  903.   #define siginterrupt(sig, code)
  904.   #endif
  905.   
  906. ***************
  907. *** 150,155 ****
  908. --- 156,168 ----
  909.     return (pid);
  910.   }
  911.   
  912. + /**
  913. +  ** (sjk)++ Define ECHILD to be an unknown/general ERROR code for the Atari ST
  914. +  **/
  915. + #if defined(atarist)
  916. + #define ECHILD (-1)
  917. + #endif
  918. + 
  919.   /* Wait for a single pid (PID) and return its exit status. */
  920.   wait_for_single_pid (pid)
  921.        pid_t pid;
  922. ***************
  923. *** 189,195 ****
  924.         WAIT status;
  925.   
  926.         while ((got_pid = wait(&status)) != -1)  /* wait for ECHILD */
  927. !     ;
  928.         if (errno != EINTR && errno != ECHILD)
  929.       {
  930.         siginterrupt (SIGINT, 0);
  931. --- 202,209 ----
  932.         WAIT status;
  933.   
  934.         while ((got_pid = wait(&status)) != -1)  /* wait for ECHILD */
  935. !      printf("Stuck in wait loop with got_pid = %d\n",got_pid);
  936. ! 
  937.         if (errno != EINTR && errno != ECHILD)
  938.       {
  939.         siginterrupt (SIGINT, 0);
  940. ***************
  941. *** 297,303 ****
  942. --- 311,324 ----
  943.   /* Fill the contents of shell_tty_info with the current tty info. */
  944.   get_tty_state ()
  945.   {
  946. + /**
  947. +  ** (sjk)++ Attach the terminal to CON: on the Atari ST
  948. +  **/
  949. + #if !defined(atarist)
  950.     int tty = open ("/dev/tty", O_RDONLY);
  951. + #else 
  952. +   int tty = open("CON:", O_RDONLY);
  953. + #endif 
  954.     if (tty != -1)
  955.       {
  956.      
  957. ***************
  958. *** 318,324 ****
  959. --- 339,352 ----
  960.   /* Make the current tty use the state in shell_tty_info. */
  961.   set_tty_state ()
  962.   {
  963. + /**
  964. +  ** (sjk)++ Attach the terminal to CON: on the Atari ST
  965. +  **/
  966. + #if !defined(atarist)
  967.     int tty = open ("/dev/tty", O_RDONLY);
  968. + #else 
  969. +   int tty = open("CON:", O_RDONLY);
  970. + #endif 
  971.     if (tty != -1)
  972.       {
  973.         if (!got_tty_state)
  974. ***************
  975. *** 326,336 ****
  976.   #if defined (_POSIX_VERSION)
  977.         tcsetattr (tty, TCSADRAIN, &shell_tty_info);
  978.   #else
  979. ! #  if defined (USG)
  980. !       ioctl (tty, TCSETAW, &shell_tty_info);  /* Wait for output, no flush */
  981. ! #  else
  982.         ioctl (tty, TIOCSETN, &shell_tty_info);
  983. ! #  endif
  984.   #endif
  985.         close (tty);
  986.       }
  987. --- 354,367 ----
  988.   #if defined (_POSIX_VERSION)
  989.         tcsetattr (tty, TCSADRAIN, &shell_tty_info);
  990.   #else
  991. ! /** 
  992. !  ** (sjk)++ Set the terminal parameters ala USG if on an Atari ST
  993. !  **/
  994. ! #if defined (USG) || defined(atarist)
  995.         ioctl (tty, TIOCSETN, &shell_tty_info);
  996. ! #else
  997. !       ioctl (tty, TCSETAW, &shell_tty_info);  /* Wait for output, no flush */
  998. ! #endif
  999.   #endif
  1000.         close (tty);
  1001.       }
  1002. diff -c ./parse.y ../../st-bash-src/parse.y
  1003. *** ./parse.y    Wed Aug 21 03:40:23 1991
  1004. --- ../../st-bash-src/parse.y    Wed Aug 21 02:36:44 1991
  1005. ***************
  1006. *** 671,676 ****
  1007. --- 671,680 ----
  1008.   /*                                    */
  1009.   /* **************************************************************** */
  1010.   
  1011. + #if defined(atarist)
  1012. + extern int console_read_byte();
  1013. + #endif
  1014. + 
  1015.   int
  1016.   yy_stream_get ()
  1017.   {
  1018. ***************
  1019. *** 678,684 ****
  1020. --- 682,695 ----
  1021.   #if defined (USG)
  1022.       return (sysv_getc (yy_input_dev));
  1023.   #else
  1024. + /**
  1025. +  ** (sjk)++ Atari ST hack for input
  1026. +  **/
  1027. + #if !defined(atarist)
  1028.       return (getc (yy_input_dev));
  1029. + #else 
  1030. +     return(console_read_byte(fileno(yy_input_dev)));
  1031. + #endif 
  1032.   #endif    /* USG */
  1033.     else return (EOF);
  1034.   }
  1035. ***************
  1036. *** 1349,1354 ****
  1037. --- 1360,1370 ----
  1038.   {
  1039.     if (interactive && (!current_token || current_token == '\n'))
  1040.       {
  1041. + 
  1042. + /**
  1043. +  ** (sjk)++
  1044. +  **/
  1045. + #if !defined(atarist)
  1046.         /* Before we print a prompt, we might have to check mailboxes.
  1047.        We do this only if it is time to do so. Notice that only here
  1048.        is the mail alarm reset; nothing takes place in check_mail ()
  1049. ***************
  1050. *** 1358,1363 ****
  1051. --- 1374,1380 ----
  1052.         check_mail ();
  1053.         reset_mail_timer ();
  1054.       }
  1055. + #endif
  1056.   
  1057.         /* Allow the execution of a random command just before the printing
  1058.        of each primary prompt.  If the shell variable PROMPT_COMMAND
  1059. ***************
  1060. *** 2183,2189 ****
  1061. --- 2200,2210 ----
  1062.      of MAXPATHLEN is a crock if you ask me.  Why can't we just have
  1063.      dynamically defined sizes?  (UCSB crashes every 20 minutes on me.) */
  1064.   #ifndef MAXPATHLEN
  1065. + #if !defined(atarist)
  1066.   #define MAXPATHLEN 1024
  1067. + #else 
  1068. + #define MAXPATHLEN 128
  1069. + #endif
  1070.   #endif    /* MAXPATHLEN */
  1071.   
  1072.   /* Return a string which will be printed as a prompt.  The string
  1073. diff -c ./shell.c ../../st-bash-src/shell.c
  1074. *** ./shell.c    Wed May 22 15:15:02 1991
  1075. --- ../../st-bash-src/shell.c    Wed Aug 21 00:26:26 1991
  1076. ***************
  1077. *** 38,43 ****
  1078. --- 38,44 ----
  1079.   #if !defined (sony)
  1080.   #include <fcntl.h>
  1081.   #endif /* sony */
  1082. + 
  1083.   #include <sys/file.h>
  1084.   #include "posixstat.h"
  1085.   #include <pwd.h>
  1086. ***************
  1087. *** 132,139 ****
  1088. --- 133,148 ----
  1089.   
  1090.   /* The environment at the top-level REP loop.  We use this in the case of
  1091.      error return. */
  1092. + /**
  1093. +  ** (sjk)++ catch is defined in setjmp.h on the Atari ST
  1094. +  **/
  1095. + #if !defined(atarist)
  1096.   jmp_buf top_level, catch;
  1097. + #else 
  1098. + jmp_buf top_level;
  1099. + #endif
  1100.   
  1101. + 
  1102.   /* Non-zero is the recursion depth for commands. */
  1103.   int indirection_level = 0;
  1104.   
  1105. ***************
  1106. *** 219,224 ****
  1107. --- 228,243 ----
  1108.            COMPAT_BSDTTY | COMPAT_EXEC | COMPAT_SYSCALLS);
  1109.   #endif /* AUX */
  1110.   
  1111. + /**
  1112. +  ** (sjk)++ Set the default unixmode as we cannot assume that the variable 
  1113. +  **         is set upon entering the shell.
  1114. +  **/
  1115. + #if defined(atarist)
  1116. +  if (!getenv("UNIXMODE")) _set_unixmode("/.,rCLAHdb");
  1117. +     else _set_unixmode(getenv("UNIXMODE"));
  1118. + #endif
  1119. + 
  1120. + 
  1121.     /* Wait forever if we are debugging a login shell. */
  1122.     while (debugging_login_shell);
  1123.   
  1124. ***************
  1125. *** 576,581 ****
  1126. --- 595,604 ----
  1127.     /* Do the things that should be done only for interactive shells. */
  1128.     if (interactive)
  1129.       {
  1130. + /**
  1131. +  ** (sjk)++ Remove all host/mail code on the Atari ST
  1132. +  **/
  1133. + #if !defined(atarist)
  1134.         /* Set up for checking for presence of mail. */
  1135.   #if defined (USG)
  1136.         /* Under System V, we can only tell if you have mail if the
  1137. ***************
  1138. *** 599,604 ****
  1139. --- 622,628 ----
  1140.       }
  1141.   
  1142.         reset_mail_timer ();
  1143. + #endif 
  1144.   
  1145.         change_flag_char ('i', FLAG_ON);
  1146.         
  1147. ***************
  1148. *** 898,904 ****
  1149.             {
  1150.           executing = 1;
  1151.           execute_command (current_command);
  1152. !           }
  1153.   
  1154.         exec_done:
  1155.           if (current_command)
  1156. --- 922,928 ----
  1157.             {
  1158.           executing = 1;
  1159.           execute_command (current_command);
  1160. !               }
  1161.   
  1162.         exec_done:
  1163.           if (current_command)
  1164. ***************
  1165. *** 988,994 ****
  1166.     /* Only do timeouts if interactive. */
  1167.     if (interactive)
  1168.       {
  1169. !       tmout_var = find_variable ("TMOUT");
  1170.   
  1171.         if (tmout_var && tmout_var->value)
  1172.       {
  1173. --- 1012,1022 ----
  1174.     /* Only do timeouts if interactive. */
  1175.     if (interactive)
  1176.       {
  1177. ! /**
  1178. !  ** (sjk)++ There is no nead to do an interative timeout on the Atari ST
  1179. !  **/
  1180. ! #if !defined(atarist)
  1181. !      tmout_var = find_variable ("TMOUT");
  1182.   
  1183.         if (tmout_var && tmout_var->value)
  1184.       {
  1185. ***************
  1186. *** 999,1004 ****
  1187. --- 1027,1033 ----
  1188.             alarm (tmout_len);
  1189.           }
  1190.       }
  1191. + #endif
  1192.       }
  1193.   
  1194.     QUIT;
  1195. ***************
  1196. *** 1005,1015 ****
  1197. --- 1034,1049 ----
  1198.   
  1199.     result = parse_command ();
  1200.   
  1201. + /**
  1202. +  ** (sjk)++ There is no need for an interactive timeout on the Atari ST
  1203. +  **/
  1204. + #if !defined(atarist)
  1205.     if (interactive && tmout_var && (tmout_len > 0))
  1206.       {
  1207.         alarm(0);
  1208.         signal (SIGALRM, old_alrm);
  1209.       }
  1210. + #endif
  1211.     return (result);
  1212.   }
  1213.   
  1214. ***************
  1215. *** 1321,1327 ****
  1216.   sigint_sighandler (sig)
  1217.        int sig;
  1218.   {
  1219. ! #if defined (USG) && !defined (_POSIX_VERSION)
  1220.     signal (sig, sigint_sighandler);
  1221.   #endif
  1222.   
  1223. --- 1355,1364 ----
  1224.   sigint_sighandler (sig)
  1225.        int sig;
  1226.   {
  1227. ! /**
  1228. !  **  (sjk)++ Offer up the signal ala USG on the Atari ST
  1229. !  **/
  1230. ! #if (defined (USG) && !defined(_POSIX_VERSION)) || defined(atarist)
  1231.     signal (sig, sigint_sighandler);
  1232.   #endif
  1233.   
  1234. diff -c ./shell.h ../../st-bash-src/shell.h
  1235. *** ./shell.h    Mon May 20 05:01:20 1991
  1236. --- ../../st-bash-src/shell.h    Wed Aug 14 15:01:15 1991
  1237. ***************
  1238. *** 20,26 ****
  1239. --- 20,33 ----
  1240.   /* A bunch of stuff for flow of control using setjmp () and longjmp (). */
  1241.   
  1242.   #include <setjmp.h>
  1243. + /**
  1244. +  ** (sjk)++ catch is defined in setjmp.h on the Atari ST
  1245. +  **/
  1246. + #if !defined(atarist)
  1247.   extern jmp_buf top_level, catch;
  1248. + #else
  1249. + extern jmp_buf top_level;
  1250. + #endif
  1251.   
  1252.   #define NOT_JUMPED 0        /* Not returning from a longjmp. */
  1253.   #define FORCE_EOF 1        /* We want to stop parsing. */
  1254. diff -c ./subst.c ../../st-bash-src/subst.c
  1255. *** ./subst.c    Wed Aug 21 03:40:25 1991
  1256. --- ../../st-bash-src/subst.c    Wed Aug 14 14:42:47 1991
  1257. ***************
  1258. *** 2254,2260 ****
  1259.            continue.  In the common case, at least when running shell
  1260.            scripts, this will degenerate to a bunch of calls to `index',
  1261.            and then what is basically the body of copy_word_list. */
  1262. !       if (index (tlist->word->word, '{') != NULL)
  1263.           {
  1264.             expansions = brace_expand (tlist->word->word);
  1265.   
  1266. --- 2254,2260 ----
  1267.            continue.  In the common case, at least when running shell
  1268.            scripts, this will degenerate to a bunch of calls to `index',
  1269.            and then what is basically the body of copy_word_list. */
  1270. !       if (index ((tlist->word->word), '{') != (int)NULL)
  1271.           {
  1272.             expansions = brace_expand (tlist->word->word);
  1273.   
  1274. ***************
  1275. *** 2451,2459 ****
  1276.   
  1277.   /* The functions that get called. */
  1278.   int
  1279. !   sv_path (), sv_mail (), sv_terminal (), sv_histsize (), sv_histfilesize (),
  1280.     sv_uids (), sv_ignoreeof (), sv_glob_dot_filenames (), sv_histchars (),
  1281. !   sv_nolinks (), sv_hostname_completion_file (), sv_history_control (),
  1282.     sv_noclobber (), sv_allow_null_glob_expansion (), sv_optind (), sv_opterr ();
  1283.   
  1284.   #if defined (JOB_CONTROL)
  1285. --- 2451,2473 ----
  1286.   
  1287.   /* The functions that get called. */
  1288.   int
  1289. !   sv_path (),
  1290. ! /**
  1291. !  ** (sjk)++ Remove all host/mail references on the Atari ST
  1292. !  **/
  1293. ! #if !defined(atarist)
  1294. !              sv_mail (),
  1295. ! #endif 
  1296. !   sv_terminal (), sv_histsize (), sv_histfilesize (),
  1297.     sv_uids (), sv_ignoreeof (), sv_glob_dot_filenames (), sv_histchars (),
  1298. !   sv_nolinks (), 
  1299. ! /**
  1300. !  ** (sjk)++ Remove all host/mail references on the Atari ST
  1301. !  **/
  1302. ! #if !defined(atarist)
  1303. !   sv_hostname_completion_file (), 
  1304. ! #endif 
  1305. !   sv_history_control (),
  1306.     sv_noclobber (), sv_allow_null_glob_expansion (), sv_optind (), sv_opterr ();
  1307.   
  1308.   #if defined (JOB_CONTROL)
  1309. ***************
  1310. *** 2465,2473 ****
  1311. --- 2479,2492 ----
  1312.     Function *function;
  1313.   } special_vars[] = {
  1314.     { "PATH", sv_path },
  1315. + /**
  1316. +  ** (sjk)++ Remove all host/mail references on the Atari ST
  1317. +  **/
  1318. + #if !defined(atarist)
  1319.     { "MAIL", sv_mail },
  1320.     { "MAILPATH", sv_mail },
  1321.     { "MAILCHECK", sv_mail },
  1322. + #endif
  1323.     { "TERMCAP", sv_terminal },
  1324.     { "TERM", sv_terminal },
  1325.     { "HISTSIZE", sv_histsize },
  1326. ***************
  1327. *** 2487,2493 ****
  1328. --- 2506,2517 ----
  1329.     { "allow_null_glob_expansion", sv_allow_null_glob_expansion },
  1330.     { "histchars", sv_histchars },
  1331.     { "nolinks", sv_nolinks },
  1332. + /**
  1333. +  ** (sjk)++ Remove all host/mail references on the Atari ST
  1334. +  **/
  1335. + #if !defined(atarist)
  1336.     { "hostname_completion_file", sv_hostname_completion_file },
  1337. + #endif
  1338.     { "history_control", sv_history_control },
  1339.     { "noclobber", sv_noclobber },
  1340.     { (char *)0x00, (Function *)0x00 }
  1341. ***************
  1342. *** 2537,2542 ****
  1343. --- 2561,2570 ----
  1344.   
  1345.   /* What to do just after one of the MAILxxxx variables has changed.  NAME
  1346.      is the name of the variable.  */
  1347. + /**
  1348. +  ** (sjk)++ Remove all host/mail references on the Atari ST
  1349. +  **/
  1350. + #if !defined(atarist)
  1351.   sv_mail (name)
  1352.        char *name;
  1353.   {
  1354. ***************
  1355. *** 2555,2560 ****
  1356. --- 2583,2589 ----
  1357.       }
  1358.       }
  1359.   }
  1360. + #endif 
  1361.   
  1362.   /* What to do just after one of the TERMxxx variables has changed.
  1363.      If we are an interactive shell, then try to reset the terminal
  1364. ***************
  1365. *** 2751,2756 ****
  1366. --- 2780,2789 ----
  1367.     v->attributes |= (att_readonly | att_integer);
  1368.   }
  1369.   
  1370. + /**
  1371. +  ** (sjk)++ Remove all host/mail references on the Atari ST
  1372. +  **/
  1373. + #if !defined(atarist)
  1374.   sv_hostname_completion_file (name)
  1375.        char *name;
  1376.   {
  1377. ***************
  1378. *** 2758,2763 ****
  1379. --- 2791,2797 ----
  1380.   
  1381.     hostname_list_initialized = 0;
  1382.   }
  1383. + #endif 
  1384.   
  1385.   sv_allow_null_glob_expansion (name)
  1386.        char *name;
  1387. diff -c ./trap.c ../../st-bash-src/trap.c
  1388. *** ./trap.c    Sun May 19 14:43:41 1991
  1389. --- ../../st-bash-src/trap.c    Wed Aug 14 14:51:00 1991
  1390. ***************
  1391. *** 285,293 ****
  1392. --- 285,298 ----
  1393.   /* Non-zero when we catch a trapped signal. */
  1394.   static int catch_flag = 0;
  1395.   
  1396. + /**
  1397. +  ** (sjk)++ NO BSD type signals on the Atari ST1
  1398. +  **/
  1399. + #if !defined(atarist)
  1400.   #if !defined (USG) && !defined (USGr4)
  1401.   #define HAVE_BSD_SIGNALS
  1402.   #endif
  1403. + #endif
  1404.   
  1405.   run_pending_traps ()
  1406.   {
  1407. ***************
  1408. *** 362,368 ****
  1409.     if (original_signals[sig] == SIG_IGN)
  1410.       return;
  1411.   
  1412. ! #ifdef SIGCHLD
  1413.     /* Don't change the function that catches SIGCHLD, but store the command
  1414.        to be executed.  It will be run from jobs.c: flush_child(). */
  1415.     if (sig && (sig != SIGCHLD))
  1416. --- 367,373 ----
  1417.     if (original_signals[sig] == SIG_IGN)
  1418.       return;
  1419.   
  1420. ! #if  defined(SIGCHLD)
  1421.     /* Don't change the function that catches SIGCHLD, but store the command
  1422.        to be executed.  It will be run from jobs.c: flush_child(). */
  1423.     if (sig && (sig != SIGCHLD))
  1424. ***************
  1425. *** 373,379 ****
  1426.   
  1427.     change_signal (sig, savestring (string));
  1428.   
  1429. ! #ifdef SIGCHLD
  1430.     /* Don't change the function that catches SIGCHLD, but store the command
  1431.        to be executed.  It will be run from jobs.c: flush_child(). */
  1432.     if (sig && (sig != SIGCHLD))
  1433. --- 378,384 ----
  1434.   
  1435.     change_signal (sig, savestring (string));
  1436.   
  1437. ! #if defined(SIGCHLD)
  1438.     /* Don't change the function that catches SIGCHLD, but store the command
  1439.        to be executed.  It will be run from jobs.c: flush_child(). */
  1440.     if (sig && (sig != SIGCHLD))
  1441. ***************
  1442. *** 401,410 ****
  1443.   restore_default_signal (sig)
  1444.        int sig;
  1445.   {
  1446. - #ifdef SIGCHLD
  1447.     /* Don't allow the SIGCHLD signal catcher to be overridden. */
  1448.     if (sig != SIGCHLD)
  1449. - #endif
  1450.       signal (sig, original_signals[sig]);
  1451.     change_signal (sig, (char *)DEFAULT_SIG);
  1452.   }
  1453. --- 406,413 ----
  1454. ***************
  1455. *** 414,423 ****
  1456.   ignore_signal (sig)
  1457.        int sig;
  1458.   {
  1459. - #ifdef SIGCHLD
  1460.     /* Don't allow the SIGCHLD signal catcher to be overridden. */
  1461.     if (sig != SIGCHLD)
  1462. - #endif
  1463.       signal (sig, SIG_IGN);
  1464.     change_signal (sig, (char *)IGNORE_SIG);
  1465.   }
  1466. --- 417,424 ----
  1467. diff -c ./ulimit.c ../../st-bash-src/ulimit.c
  1468. *** ./ulimit.c    Fri May 17 20:17:03 1991
  1469. --- ../../st-bash-src/ulimit.c    Mon Aug 19 15:01:54 1991
  1470. ***************
  1471. *** 29,34 ****
  1472. --- 29,40 ----
  1473.   #if defined (HAVE_RESOURCE)
  1474.   #include <sys/time.h>
  1475.   #include <sys/resource.h>
  1476. + /**
  1477. +  ** We require some library support on the Atari ST
  1478. +  **/
  1479. + #if defined(atarist)
  1480. + #include "../lib+/r-res.h"
  1481. + #endif
  1482.   #else
  1483.   #include <sys/times.h>
  1484.   #endif
  1485. diff -c ./variables.c ../../st-bash-src/variables.c
  1486. *** ./variables.c    Fri May 17 20:33:53 1991
  1487. --- ../../st-bash-src/variables.c    Fri Aug 16 08:45:23 1991
  1488. ***************
  1489. *** 66,76 ****
  1490. --- 66,81 ----
  1491.   /* The list of variables that may not be unset in this shell. */
  1492.   char **non_unsettable_vars = (char **)NULL;
  1493.   
  1494. + /**
  1495. +  **  (sjk)++ Remove all mail references on the Atari ST 
  1496. +  **/
  1497. + #if !defined(atarist)   
  1498.   #if defined (USG)
  1499.   #define DEFAULT_MAIL_PATH "/usr/mail/"
  1500.   #else
  1501.   #define DEFAULT_MAIL_PATH "/usr/spool/mail/"
  1502.   #endif
  1503. + #endif 
  1504.   
  1505.   /* Some forward declarations. */
  1506.   SHELL_VAR *set_if_not ();    /* returns new or existing entry */
  1507. ***************
  1508. *** 136,141 ****
  1509. --- 141,157 ----
  1510.   
  1511.     /* Now make our own defaults in case the vars that we think are
  1512.        important are missing. */
  1513. + 
  1514. + /**
  1515. +  ** (sjk)++ We set some default environment variables, provided 
  1516. +  **         that they are not defined.
  1517. +  **/
  1518. + #if defined(atarist)
  1519. +   set_if_not("UNIXMODE","/.,LAHdb");   /* Set a default Unixmode */ 
  1520. +   set_if_not("HOME","/dev/A");
  1521. +   set_if_not("TERM","vt52");
  1522. + #endif 
  1523. + 
  1524.     temp_var = set_if_not ("PATH", DEFAULT_PATH_VALUE);
  1525.     set_auto_export (temp_var);
  1526.   
  1527. ***************
  1528. *** 150,155 ****
  1529. --- 166,175 ----
  1530.     temp_var = set_if_not ("HOSTTYPE", HOSTTYPE);
  1531.     set_auto_export (temp_var);
  1532.   
  1533. + /**
  1534. +  **  (sjk)++ Remove all mail references on the Atari ST 
  1535. +  **/
  1536. + #if !defined(atarist)   
  1537.     /* Default MAILPATH, and MAILCHECK. */
  1538.     set_if_not ("MAILCHECK", "60");
  1539.     if ((get_string_value ("MAIL") == (char *)NULL) &&
  1540. ***************
  1541. *** 166,171 ****
  1542. --- 186,192 ----
  1543.         bind_variable ("MAILPATH", tem);
  1544.         free (tem);
  1545.       }
  1546. + #endif
  1547.   
  1548.     /* Set up $PWD. */
  1549.     {
  1550. ***************
  1551. *** 280,286 ****
  1552.       set_if_not ("HISTFILE", tem);
  1553.       free (tem);
  1554.   
  1555. !     set_if_not ("HISTSIZE", "500");
  1556.       sv_histsize ("HISTSIZE");
  1557.     }
  1558.   
  1559. --- 301,307 ----
  1560.       set_if_not ("HISTFILE", tem);
  1561.       free (tem);
  1562.   
  1563. !     set_if_not ("HISTSIZE", "50");
  1564.       sv_histsize ("HISTSIZE");
  1565.     }
  1566.   
  1567. ***************
  1568. *** 350,356 ****
  1569.         return;
  1570.   
  1571.     non_unsettable_vars = (char **)
  1572. !     xrealloc (non_unsettable_vars, (2 + i) * sizeof (char *));
  1573.     non_unsettable_vars[i] = savestring (name);
  1574.     non_unsettable_vars[i + 1] = (char *)NULL;
  1575.   }
  1576. --- 371,377 ----
  1577.         return;
  1578.   
  1579.     non_unsettable_vars = (char **)
  1580. !     xrealloc ((char *)non_unsettable_vars, (2 + i) * sizeof (char *));
  1581.     non_unsettable_vars[i] = savestring (name);
  1582.     non_unsettable_vars[i + 1] = (char *)NULL;
  1583.   }
  1584. ***************
  1585. *** 393,399 ****
  1586.           {
  1587.             if (list_index + 1 >= list_size)
  1588.           list = (SHELL_VAR **)
  1589. !           xrealloc (list, (list_size += 20) * sizeof (SHELL_VAR *));
  1590.   
  1591.             list[list_index++] = var;
  1592.             list[list_index] = (SHELL_VAR *)NULL;
  1593. --- 414,420 ----
  1594.           {
  1595.             if (list_index + 1 >= list_size)
  1596.           list = (SHELL_VAR **)
  1597. !           xrealloc ((char *)list, (list_size += 20) * sizeof (SHELL_VAR *));
  1598.   
  1599.             list[list_index++] = var;
  1600.             list[list_index] = (SHELL_VAR *)NULL;
  1601. ***************
  1602. *** 1353,1359 ****
  1603.   
  1604.     size = array_len (temporary_env);
  1605.     temporary_env = (char **)
  1606. !     xrealloc (temporary_env, (size + 2) * (sizeof (char *)));
  1607.   
  1608.     temporary_env[size] = (temp);
  1609.     temporary_env[size + 1] = (char *)NULL;
  1610. --- 1374,1380 ----
  1611.   
  1612.     size = array_len (temporary_env);
  1613.     temporary_env = (char **)
  1614. !     xrealloc ((char *)temporary_env, (size + 2) * (sizeof (char *)));
  1615.   
  1616.     temporary_env[size] = (temp);
  1617.     temporary_env[size + 1] = (char *)NULL;
  1618. ***************
  1619. *** 1454,1460 ****
  1620.         return (array);
  1621.       }
  1622.       }
  1623. !   array = (char **)xrealloc (array, (2 + array_len (array)) * sizeof (char *));
  1624.     array[i++] = savestring (assign);
  1625.     array[i] = (char *)NULL;
  1626.     return (array);
  1627. --- 1475,1481 ----
  1628.         return (array);
  1629.       }
  1630.       }
  1631. !   array = (char **)xrealloc ((char *)array, (2 + array_len (array)) * sizeof (char *));
  1632.     array[i++] = savestring (assign);
  1633.     array[i] = (char *)NULL;
  1634.     return (array);
  1635. ***************
  1636. *** 1539,1545 ****
  1637.   #if !defined (NeXT)
  1638.   char *
  1639.   getenv (name)
  1640. !      char *name;
  1641.   {
  1642.     SHELL_VAR *var = find_tempenv_variable (name);
  1643.   
  1644. --- 1560,1566 ----
  1645.   #if !defined (NeXT)
  1646.   char *
  1647.   getenv (name)
  1648. !      const char *name;
  1649.   {
  1650.     SHELL_VAR *var = find_tempenv_variable (name);
  1651.   
  1652.